home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / WWWworkbenchIB.lha / WWWworkbench / StartWWWworkbench.ibrx < prev    next >
Encoding:
Text File  |  1998-09-29  |  4.4 KB  |  113 lines
  1. /* $VER: StartWWWworkbench.ibrx  1.0
  2. *Made by Andres Pääbo (c)1998 : paabo@bancom.net
  3. *
  4. */
  5. OPTIONS RESULTS
  6.  
  7. IF ~ SHOW('L', "rexxsupport.library") then addlib('rexxsupport.library', 0, -30,0)
  8.  
  9. ADDRESS 'IBROWSE'
  10. brf='file://localhost/'
  11. cfg='IB'
  12.  
  13.  
  14. IF  EXISTS('RAM:W4')=0 THEN
  15. ADDRESS COMMAND 'MAKEDIR  RAM:W4'
  16. ENDIF
  17.  
  18. W4config=OPEN('configfile', 'RAM:W4/W4'cfg'config.txt', 'Read') 
  19.     if  W4config=0 then DO
  20.      W4config=OPEN('configfile', 'WWWworkbench/W4config.txt', 'Read') 
  21.         if  W4config=0 then DO  
  22.         screen="Workbench"
  23.         width=100
  24.         height=90
  25.         spacing=3
  26.         rowacross=3
  27.         maxautosize=15
  28.         FTPM.1='FTPMount:drwrname/public_html/'
  29.         WWW.1='http://www.server.com/~myname/'
  30.         FTPM.2=' '
  31.         WWW.2=' '
  32.         FTPM.3=' '
  33.         WWW.3=' '
  34.         FTPM.4=' '
  35.         WWW.4=' '
  36.         END
  37.     END
  38.  
  39.  if  W4config~=0 then DO WHILE~EOF('configfile') 
  40.     line = READLN('configfile')
  41.     if  INDEX(line,'*')~=0 then iterate
  42.     if line='' then leave
  43.     line2 = STRIP(line)
  44.     interpret  line2
  45.     END
  46. CLOSE('configfile')
  47.     /******END OF CONFIGURATION SECTION******/
  48.  
  49.  
  50. W4cfg=OPEN('W4getconf', 'RAM:W4/W4getconfig.ibrx','Write') 
  51. W4cnfscript="/*makeconfigwindow*/ ; ADDRESS 'IBROWSE' ; cfg='IB'; 'NEWWINDOW' ; 'GOTOURL  file://localhost/RAM:W4/W4'cfg'config.txt' ; EXIT "
  52. WRITELN('W4getconf',W4cnfscript)
  53. close('W4getconf')
  54.  
  55.  
  56.  
  57. W4intro=OPEN('W4intro', 'RAM:W4/W4intro.html','Write') 
  58. htmlintro='<HTML><TITLE>WWWworkbenchIBV1.0 by Andres Pääbo </TITLE><BODY BGCOLOR="#666666" TEXT="#BBBB99" LINK="#9999FF" ALINK="#9999FF" VLINK="#9999FF"><CENTER><TABLE WIDTH=90%><TR><TD align=center><FONT SIZE=2><A HREF="'brf'RAM:W4/W4getconfig.ibrx">CONFIGURATION</A> . . . .<A HREF="'brf'WWWworkbench/StartWWWworkbench.ibrx">Save New Config</A> . . . .<A HREF="'brf'RAM:W4/W4getguide.ibrx">HELP DOCS</A></FONT><BR><BR><A HREF="'brf'WWWworkbench/W4new.ibrx">OPEN a <IMG SRC="file://localhost/WWWworkbench/drawer.jpg"> DRAWER</A><BR><BR><FONT SIZE=7><B>WWWworkbenchIB v1.0 </B></FONT><BR><BR><FONT SIZE=2>A workbench on an Amiga Browser <BR>by Andres Pääbo ©98 <BR><BR><FONT COLOR="#FFFFFF">this is the Shareware  Version</FONT><BR><BR><BR><BR>WHEN REGISTERED GET:<BR>-bugs fixed as found<BR>-script cleaned & tightened<BR>
  59. -new useful links and operations<BR>
  60. -more action scripts linking pics  to other software<BR></TD></TR></TABLE>
  61. </CENTER></FONT></BODY></HTML>'
  62. WRITELN('W4intro',htmlintro)
  63. close('W4intro')
  64.  
  65.  
  66.  
  67. W4gd=OPEN('W4getguide', 'RAM:W4/W4getguide.ibrx','Write') 
  68. W4gdscript="/*guideframes*/ ; ADDRESS 'IBROWSE' ; 'NEWWINDOW';'GOTOURL  file://localhost/WWWworkbench/W4guide.html' ; EXIT"
  69. WRITELN('W4getguide',W4gdscript)
  70. close('W4getguide')
  71.  
  72. W4cf=OPEN('W4config', 'Ram:W4/W4'cfg'config.txt','Write') 
  73. WRITELN('W4config','      ****CURRENT CONFIGURATION FILE W4'cfg'config.txt****')
  74. WRITELN('W4config','      ****to change it, select EDIT Source, edit it,  then SAVE ****')
  75. WRITELN('W4config','      ****SCREEN: file  requesters will appear on this screen****')
  76. WRITELN('W4config','screen=   "'screen'"')
  77. WRITELN('W4config','      ****THUMBNAIL ...SIZE...NUMBER ACROSS..SPACING****')
  78. WRITELN('W4config','width=   'width'')
  79. WRITELN('W4config','height=   'height'')
  80. WRITELN('W4config','spacing=   'spacing'')
  81. WRITELN('W4config','rowacross=   'rowacross'')
  82. WRITELN('W4config','      ****MAX FILESIZE IN K TO LOAD AND SCALE TO THUMBNAIL****')
  83. WRITELN('W4config','maxautosize=   'maxautosize'')
  84. WRITELN('W4config','      *******************')
  85. WRITELN('W4config','      ****CONFIGURATION FOR FTPMOUNT USE---ADD MORE LINES AS REQUIRED****')
  86. WRITELN('W4config','      *** Enter FTPMount: and WWW paths to SAME directory, & put slash at end***')
  87. WRITELN('W4config','      ***NOTE!!you must have quotes("-text-") for text to keep upper & lower cases***')
  88. WRITELN('W4config','      *** (Internet is case-sensitive!!)Else text becomes all caps when saved***')
  89. WRITELN('W4config','      *****EXAMPLE***      FTPM.1="FTPMount:drwrname/pub/"    ****')
  90. WRITELN('W4config','      *****EXAMPLE***    WWW.1="http://www.server.com/~myname/"   ****')
  91. WRITELN('W4config','      ********************************')
  92. WRITELN('W4config','FTPM.1="'FTPM.1'"')
  93. WRITELN('W4config','WWW.1="'WWW.1'"')
  94. WRITELN('W4config','FTPM.2="'FTPM.2'"')
  95. WRITELN('W4config','WWW.2="'WWW.2'"')
  96. WRITELN('W4config','FTPM.3="'FTPM.3'"')
  97. WRITELN('W4config','WWW.3="'WWW.3'"')
  98. WRITELN('W4config','FTPM.4="'FTPM.4'"')
  99. WRITELN('W4config','WWW.4="'WWW.4'"')
  100. close('W4config')
  101.  
  102.  
  103. ADDRESS COMMAND 'COPY FROM RAM:W4/W4'cfg'config.txt  TO WWWworkbench/W4config.txt'
  104.  
  105.  
  106. call setclip('reqdir', 'New_Window')
  107.  
  108. 'GOTOURL file://localhost/Ram:W4/W4intro.html'
  109.  
  110. EXIT 0
  111.  
  112.  
  113.